﻿Imports Forecast.Logica.Servicios
Imports Forecast.Logica.Modelos
Public Class FlintMenu
    Inherits System.Web.UI.MasterPage
    Private Shared _servEntidades As ServEntidades

    Public Usuario As Usuario

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Usuario = Session("usuario")


        If (Usuario Is Nothing) Then

            Response.Redirect("~/IniciarSesion.aspx")
        Else
            lblNombreUsuario.Text = Usuario.Name
        End If
        If Not Page.IsPostBack Then
            '  CargarEntidadesUsuarios()
        End If


    End Sub

    Protected Sub LnkCerrarSesionClick(sender As Object, e As EventArgs) Handles lnkCerrarSesion.Click
        Session.Clear()
        Session.Abandon()
        Response.Redirect("~/IniciarSesion.aspx")
    End Sub
    'Private Sub CargarEntidadesUsuarios()
    '    _servEntidades = New ServEntidades()
    '    Usuario = Session("usuario")

    '    Dim TBEntidad = _servEntidades.SearchEntidades(Usuario.IdUsuario)  '# DEJAR AÑO PARAMETRIZADO

    '    DrEntidadLegalUsuario.DataTextField = "DesEntity"
    '    DrEntidadLegalUsuario.DataValueField = "IdEntityF"
    '    DrEntidadLegalUsuario.DataSource = TBEntidad
    '    DrEntidadLegalUsuario.DataBind()
    'End Sub

    'Protected Sub DrEntidadLegalUsuario_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DrEntidadLegalUsuario.SelectedIndexChanged
    '    Session("IdEntidad2") = DrEntidadLegalUsuario.SelectedValue

    '    Session("ActualizarListado") = True
    '    ' Response.Redirect("~/Formularios/listado.aspx")
    'End Sub

End Class